home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / eg / scan / scan_df next >
Encoding:
Text File  |  1994-12-26  |  1.3 KB  |  17 lines  |  [TEXT/MPS ]

  1.  $mounted_on .= ' *';
  2.     }
  3.     next if $diff < 50 && $mounted_on eq '/';
  4.     $fs =~ s|/dev/||;
  5.     if ($diff >= 0) {
  6.         $diff = '(+' . $diff . ')';
  7.     }
  8.     else {
  9.         $diff = '(' . $diff . ')';
  10.     }
  11.     printf "%-8s%8d%8d %-8s%8d%7s    %s\n",
  12.         $fs,$kbytes,$used,$diff,$avail,$capacity,$mounted_on;
  13.     }
  14. }
  15.  
  16. rename('newdf','olddf');
  17.